(DECLARE (SETQ DEFMACRO-FOR-COMPILING NIL))


(EVAL-WHEN (COMPILE EVAL) 
  (OR (BOUNDP 'MATCH-PREFIX) (SETQ MATCH-PREFIX '%%))
  (OR (BOUNDP 'MATCH-NAME) (SETQ MATCH-NAME '%UMATCH)))


(EVAL-WHEN (COMPILE EVAL) 
  (DEFUN CONCATENATE (X Y) (IMPLODE (APPEND (EXPLODE X) (EXPLODE Y))))
  (DEFUN %%%MAKE-NAME%%% (X) 
    (IMPLODE (APPEND '(% %) (EXPLODE X)))))


(DECLARE (SPECIAL %/#CONTINUE %/#CONTINUE-STACK %/#RETAIN %/#CE
		  %/#ALIST COMPILE-MACROS))


(DECLARE (SPECIAL %/#FULL-PREDICATE))


(SETQ %/#FULL-PREDICATE NIL)


(SETQ %/#CONTINUE NIL 
      %/#CONTINUE-STACK NIL 
      %/#RETAIN NIL 
      COMPILE-MACROS NIL)


(PROGN
 'COMPILE
 (FLUSH-MACROMEMOS 'P-SPECIAL-FORM 'FLUSH-MACROMEMOS)
 (DEFUN ((LAMBDA (QQQ) (COND ((%%P-SPECIAL-FORMP QQQ) '-SPECIAL-FORM-) (T QQQ))) MACRO) (|P-SPECIAL-FORM-MACROARG..60|) 
   (COMMENT ARGLIST = (X))
   (OR
    (MACROFETCH |P-SPECIAL-FORM-MACROARG..60|)
    (MACROMEMO
     |P-SPECIAL-FORM-MACROARG..60|
     (PROGN (AND (NOT (= (LENGTH |P-SPECIAL-FORM-MACROARG..60|) 2))
		 (ERROR '|Wrong number args for macro|
			|P-SPECIAL-FORM-MACROARG..60|))
	    ((LAMBDA (X NIL) 
	       (LIST* 'LET
		      (LIST (LIST 'QQQ X))
		      '((COND ((%%P-SPECIAL-FORMP QQQ)
			       '-SPECIAL-FORM-)
			      (T QQQ)))))
	     (CAR (CDR |P-SPECIAL-FORM-MACROARG..60|))
	     NIL))
     'P-SPECIAL-FORM))))


(PROGN
 'COMPILE
 (FLUSH-MACROMEMOS 'D-SPECIAL-FORM 'FLUSH-MACROMEMOS)
 (DEFUN ((LAMBDA (QQQ) (COND ((%%D-SPECIAL-FORMP QQQ) '-SPECIAL-FORM-) (T QQQ))) MACRO) (|D-SPECIAL-FORM-MACROARG..61|) 
   (COMMENT ARGLIST = (X))
   (OR
    (MACROFETCH |D-SPECIAL-FORM-MACROARG..61|)
    (MACROMEMO
     |D-SPECIAL-FORM-MACROARG..61|
     (PROGN (AND (NOT (= (LENGTH |D-SPECIAL-FORM-MACROARG..61|) 2))
		 (ERROR '|Wrong number args for macro|
			|D-SPECIAL-FORM-MACROARG..61|))
	    ((LAMBDA (X NIL) 
	       (LIST* 'LET
		      (LIST (LIST 'QQQ X))
		      '((COND ((%%D-SPECIAL-FORMP QQQ)
			       '-SPECIAL-FORM-)
			      (T QQQ)))))
	     (CAR (CDR |D-SPECIAL-FORM-MACROARG..61|))
	     NIL))
     'D-SPECIAL-FORM))))


(PROGN
 'COMPILE
 (FLUSH-MACROMEMOS 'CONSP 'FLUSH-MACROMEMOS)
 (DEFUN (EQ (TYPEP MACRO) 'LIST) (|CONSP-MACROARG..62|) 
   (COMMENT ARGLIST = (X))
   (OR
    (MACROFETCH |CONSP-MACROARG..62|)
    (MACROMEMO |CONSP-MACROARG..62|
	       (PROGN (AND (NOT (= (LENGTH |CONSP-MACROARG..62|) 2))
			   (ERROR '|Wrong number args for macro|
				  |CONSP-MACROARG..62|))
		      ((LAMBDA (X NIL) 
			 (LIST* 'EQ
				(LIST 'TYPEP X)
				'('LIST)))
		       (CAR (CDR |CONSP-MACROARG..62|))
		       NIL))
	       'CONSP))))


(PROGN
 'COMPILE
 (FLUSH-MACROMEMOS 'REAL-ATOM 'FLUSH-MACROMEMOS)
 (DEFUN (AND MACRO (ATOM MACRO)) (|REAL-ATOM-MACROARG..63|) 
   (COMMENT ARGLIST = (%/#X))
   (OR
    (MACROFETCH |REAL-ATOM-MACROARG..63|)
    (MACROMEMO |REAL-ATOM-MACROARG..63|
	       (PROGN (AND (NOT (= (LENGTH |REAL-ATOM-MACROARG..63|)
				   2))
			   (ERROR '|Wrong number args for macro|
				  |REAL-ATOM-MACROARG..63|))
		      ((LAMBDA (%/#X NIL) 
			 (LIST 'AND
			       %/#X
			       (LIST 'ATOM %/#X)))
		       (CAR (CDR |REAL-ATOM-MACROARG..63|))
		       NIL))
	       'REAL-ATOM))))